home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 December / Ahoy_Magazine_86-12_1986_Double_L.d64 / Centipede Scroll (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  440b  |  13 lines
  1. 0 rem << cd36-10 >>
  2. 1 rem commodares problem #32-4:
  3. 2 print"[147]          centipede scroller"
  4. 3 rem solution by
  5. 4 rem     barry king
  6. 5 print"[147]  here it comes...
  7. 10 [134] a(959),l(10):s[178]1025
  8. 20 [129] r[178]0 [164] 24 [169] 2:[129] c[178]0 [164] 37:a(r[172]38[170]c)[178]s[170]r[172]40[170]c:[130]:[130]
  9. 30 [129] r[178]1 [164] 23 [169] 2:[129] c[178]0 [164] 37:a(r[172]38[170]c)[178]s[170]r[172]40[170](37[171]c):[130]:[130]
  10. 40 [129] p[178]950 [164] 959:a(p)[178]p[170]75:[130]
  11. 50 w$[178]" centipede":[129] n[178]1 [164] 10:l(n)[178][182]([198]([202](w$,n,1))[171]64):[130]:[153]"load"
  12. 60 [129] p[178]0 [164] 949:[129] n[178]1 [164] 10:[151] a(p[170]n),l(n):[130]:[130]:[137] 60
  13.